with Ada.Text_Io;
with Ada.Integer_Text_Io;
use Ada.Integer_Text_IO;
use Ada.Text_Io;
with Fakt;
with Lnko;
with Fakt_Rek;

procedure F1 is
   type Szamtomb is array (1..5) of Integer;
   
   tomb : Szamtomb;
begin
   for I in Tomb'range loop
      Tomb(I):=I*2;
   end loop;
   for I in Tomb'range loop
      Put(Fakt(Tomb(I)));
   end loop;
end F1;


